home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 November & December / Amiga-CD 1996 #11-12.iso / pd-disketten / dms-gepackt / 3_96 / apd-3-96-2.dms / apd-3-96-2.adf / Amiga-E-Kurs / listing_4.e < prev    next >
Text File  |  1996-01-30  |  436b  |  13 lines
  1. /* Vorsicht Falle: So darf man nicht mit New() und
  2.    Dispose() Speicher anfordern und freigeben */
  3.  
  4. DEF a=NIL:PTR TO CHAR, b=NIL:PTR TO CHAR
  5.  
  6. a:=New(100); b:=a  /* b zeigt auf den gleichen */
  7.                    /* Speicherbereich wie a    */
  8. ...                /* etwas sinnvolles */
  9.  
  10. IF a<>NIL THEN Dispose(a)  /* 1. Mal freigeben */
  11. b[2]:=3   /* schon falsch, Speicher ist freige.*/
  12. IF b<>NIL THEN Dispose(b)  /* 2. Mal freigeben */
  13.